inverso :: Float -> Maybe Float
inverso x = if x == 0 then Nothing else Just (1/x)

aEntero :: Either Int Bool -> Int
aEntero (Left n) = n
aEntero (Right b) = if b then 1 else 0

